home *** CD-ROM | disk | FTP | other *** search
- /* k 0069 21/10/90 */
- /* k 0165 25/05/91 */
- /* k 0191 02/07/91 */
- /* k 0206 06/09/91 */ /* mbuf - offset to buf storage */
- /* k 0208 06/09/91 */ /* Bufmsg - offset */
- /* k 0221 17/09/91 */ /* printf if VT_MODE==0 */
- /* k 0224 23/09/91 *//* ebss */
- /* k 0230 09/10/91 *//* assemble some data */
- /* k 0233 12/10/91 *//* Trn modules */
- /* k 0287 16/12/91 *//* print */
- /* k 0310 01/03/92 *//* message output */
- #include <ebss.h> /* @0224 */
- #include <portparm.h> /* @0310 */
- #include <pconio.h> /* @0069 */
- /* @0165 */
- extern char *mptr; /* @0230 */
- extern winit();
- extern msgop();
- extern void restore();
- void psmsgop(num,pno,a) /* @0191 */
- short num; /* @0191 */
- short pno; /* @0191 */
- short *a; /* @0191 *//* @0310 */
- { /* @0165 */
- #if (OVL_TYPE==0 || RESIDENT==0) /* @0310 */
- #if (OS_TYPE==0) /* @0221 */
- short off; /* @0221 */
- #else /* @0221 */
- char *bup; /* @0221 */
- #endif /* @0221 */
- #endif /* @0310 */
- #if (OVL_TYPE==0 ) /* @0310 */
- if (vt_flag & VT_MODE) /* @0221 */
- { /* @0221 */
- #endif /* @0310 */
- #if (OVL_TYPE==0 || RESIDENT==0) /* @0310 */
- if (vt_flag & VT_IO) /* @0221 */
- { /* @0221 */
- #if (OS_TYPE==0) /* @0221 */
- off=Bufmsg2; /* @0221 */
- #else /* @0221 */
- bup=mbuf2; /* @0221 */
- msw2++; /* @0221 */
- #endif /* @0221 */
- } /* @0221 */
- else /* @0221 */
- { /* @0221 */
- #if (OS_TYPE==0) /* @0221 */
- off=Bufmsg; /* @0221 */
- #else /* @0221 */
- bup=mbuf; /* @0221 */
- msw++; /* @0221 */
- #endif /* @0221 */
- } /* @0221 */
- #if (OS_TYPE==0) /* @0208 */
- winit(11,10,70,12,off,mptr,9,RED,WHITE); /* @0208 */
- #else /* @0208 */
- winit(11,10,70,12,bup,mptr,9,RED,WHITE);
- #endif /* @0208 */
- /* @0233 */
- esc++;
- #endif /* @0310 */
- #if (OVL_TYPE==0) /* @0310 */
- } /* @0221 */
- #endif /* @0310 */
- smsgop(num,pno,a); /* @0165 */
- #if (OS_TYPE==0) /* @0233 */
- #if (OVL_TYPE==0 ) /* @0310 */
- if (vt_flag & VT_MODE ) /* @0233 */
- { /* @0310 */
- #endif
- #if (OVL_TYPE==0 || RESIDENT==0) /* @0310 */
- if (!(optflg & FG_OPT)) /* @0310 */
- { /* @0310 */
- input=getkey(); /* @0233 *//* @0287 */
- restore(); /* @0233 */
- } /* @0310 */
- #endif /* @0310 */
- #if (OVL_TYPE==0) /* @0310 */
- } /* @0233 */
- #endif /* @0310 */
- } /* @0233 */
- #else /* @0233 */
- }
- void pmsgopz() {
- msw=0;
- restore();
- }
- #endif /* @0233 */